10 REM: C-64 VIDEO TAPE TITLEMAKER
20 REM: WRITTEN BY JIM BERNARD
30 FORX=28643TO28842:READA:POKEX,A:TT=TT+A:NEXT
40 IFTT<>20528THENPRINT"CHECK DATA FOR ERROR(S)":END
50 GOSUB410
60 POKE52,48:POKE56,48:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
70 FORI=0TO511:POKEI+12288,PEEK(I+53247):NEXT
75 FORI=0TO207:POKEI+10000,PEEK(I+53255):NEXT
80 FORI=0TO71:POKEI+10208,PEEK(I+53639):NEXT
85 FORI=0TO39:POKEI+10280,PEEK(I+53527):NEXT
90 FORI=0TO31:POKEI+10320,PEEK(I+53584):NEXT
95 FORI=0TO7:POKEI+10352,PEEK(I+53615):NEXT
100 FORI=0TO7:POKEI+10360,PEEK(I+53503):NEXT
105 FORI=0TO7:POKEI+10368,PEEK(I+53751):NEXT
110 FORI=0TO7:POKEI+10376,PEEK(I+53911):NEXT
115 SYS28672
120 POKE1,PEEK(1)OR4
130 POKE56334,PEEK(56334)OR1
140 POKE53272,28:PRINTCHR$(147):T=0:GOTO160
150 POKE53272,21:END
160 LW=1024:LY=LW+1:LX=LW+40:LZ=LW+41:T=1024
170 READP:P$=CHR$(P):IFP=255THENWAIT653,1,0:POKE53272,21:END
171 IFP=200THENGOSUB1000
172 IFASC(P$)>48ANDASC(P$)<58THEN193
173 IFASC(P$)>64ANDASC(P$)<91THEN192
174 IFASC(P$)>34ANDASC(P$)<40THEN195
175 IFASC(P$)>41ANDASC(P$)<47THEN200
176 IFASC(P$)=32THEN205
177 IFASC(P$)=63THEN210
178 IFASC(P$)=211THEN215
179 IFASC(P$)=145THENGOSUB270
180 IFASC(P$)=157THENLW=LW-2:LX=LX-2:LY=LY-2:LZ=LZ-2
181 IFLW<TTHEN230
182 IFASC(P$)=17THENGOSUB260
183 IFASC(P$)=29THEN230
184 IFASC(P$)=147THEN140
185 IFASC(P$)=19THENT=0:GOTO160
186 IFASC(P$)=92THENSYS28651
187 IFASC(P$)=94THENSYS28647
188 IFASC(P$)=95THENSYS28643
189 IFASC(P$)=61THENGOSUB280
190 IFASC(P$)=186THEN250
191 GOTO170
192 Q=ASC(P$):W=((Q-65)*2)+64:GOTO220
193 Q=ASC(P$):W=((Q-48)*2)+114:GOTO220
195 Q=ASC(P$):W=((Q-35)*2)+134:GOTO220
200 Q=ASC(P$):W=((Q-42)*2)+144:GOTO220
205 W=154:GOTO220
210 W=156:GOTO220
215 W=158:GOTO220
220 X=W+1:Y=W+96:Z=W+97
222 CL=PEEK(646):SC=54272:POKELW+SC,CL:POKELX+SC,CL:POKELY+SC,CL:POKELZ+SC,CL
225 POKELW,W:POKELY,Y:POKELX,X:POKELZ,Z
230 LW=LW+2:LX=LX+2:LY=LY+2:LZ=LZ+2
235 IFLY>T+39THENGOSUB260
240 GOTO170
250 POKE214,22:END
260 T=T+80:LW=T:LX=LW+40:LY=LW+1:LZ=LW+41
262 IFT>1945THENPOKE214,24:T=T-160:PRINTCHR$(17):GOTO260
265 RETURN
270 T=T-80:LW=T:LX=LW+40:LY=LW+1:LZ=LW+41:IFT<1024THENT=1104:GOTO270
275 RETURN
280 FORK=1TO1500:NEXT:RETURN
290 OPEN1,0:INPUT#1,P$:CLOSE1:RETURN
300 REM - DATA FOR MACHINE LANGUAGE
310 DATA 238,134,2,96,238,32,208,96,238,33,208,96,0,24,173,3,112,105,8,141
320 DATA 3,112,201,0,208,3,238,4,112,162,0,189,16,39,72,74,74,74,74,168
330 DATA 185,155,112,157,0,50,157,1,50, 104,41,15,168,185,155,112,157,0,53,157
340 DATA 1,53,232,238,15,112,238,18,112,238,28,112,238,31,112,224,8,208,208,24
350 DATA 173,15,112,105,8,141,15,112,24,173,18,112,105,8,141,18,112,24,173,28
360 DATA 112,105,8,141,28,112,24,173,31,112,105,8,141,31,112,201,1,208,12,238
370 DATA16,112,238,19,112,238,29,112,238,32,112,173,32,112,201,56,240,3,76,240
380 DATA 111,169,0,141,15,112,141,28,112,169,1,141,18,112,141,31,112,169,50,141
390 DATA 16,112,141,19,112,169,53,141,29,112,141,32,112,169,16,141,3,112,169,39
400 DATA 141,4,112,96,0,3,12,15,48,51,60,63,192,195,204,207,240,243,252,255
410 PRINTCHR$(147):POKE53280,7:POKE53281,7:POKE646,9
415 RETURN
700 REM - DATA FOR VIDEO TAPE MESSAGE FROM ASC II APPENDIX
710 DATA 17,17,17,17,17,17,17,17,17,17,17,17
720 DATA 32,32,32,32,32,32,32,72,69,76,76,79,46,17,17
730 DATA 32,32,32,84,72,73,83,32,73,83,32,65,32,84,69,83,84,46,17,17,32,32,32
740 DATA 92,94,61,92,94,61,92,94,61,92,94,61,92,94,61,92,94,61,92,94,61,92,94
750 DATA 61,95,83,95,84,95,73,95,76,95,76,32,95,95,95,95,84,95,69,95,83,95,84
760 DATA 95,73,95,78,95,71,46,17,17,66,32,32,32,32,32,32,32,32,32,32,32,77,200
770 DATA 17,17,17,17,17,17,32,32,78,79,87,32,80,82,69,83,83,32,83,72,73,70,84
780 DATA 46,255
1000 PRINTCHR$(19):FORQ=1TO11:PRINTCHR$(17):NEXT
1010 PRINTCHR$(29)CHR$(29)"IG OR LITTLE LETTERS,";
1020 PRINTCHR$(29)CHR$(29)CHR$(29)"IX THEM UP."
1030 RETURN